home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1988 May
/
64er_Magazin_88-05_1988_Markt__Technik_de_Side_A.d64
/
sea and seamews
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
631b
|
37 lines
10 s=54272
20 fori=0to24:pokes+i,0:next
40 pokes+5,15:pokes+6,240
45 pokes+12,2:pokes+13,2*16
50 pokes+19,32+7:pokes+20,7*16+9
60 pokes+24,15
70 poke53280,6:poke53281,6
80 print"[147][155]sound# 1"
81 print"[163][163][163][163][163][163][163][163]"
85 print"sea and seamews"
90 fort=1to1000:next
100 pokes+4,129:pokes+11,129
110 pokes+1,10:pokes+8,255
120 pokes+23,241
130 pokes+24,15+16
135 fort=1to500:next
140 fori=40to200step3
150 pokes+22,i:pokes+1,i-(i/50)^2
160 fort=1to3:next
165 ifint(rnd(1)+.02)=1thengosub300
170 next
180 fort=1to300:next
190 fori=180to30step-2
200 pokes+22,i:pokes+1,i+20
210 fort=1to10:next
215 ifint(rnd(1)+.02)=1thengosub300
220 next
230 fort=1to3000:next
240 goto140
300 pokes+15,45+int(rnd(1)+.4)
310 pokes+16,65:pokes+17,50
320 pokes+18,65
330 forii=170to0step -4
340 pokes+14,ii:next
350 pokes+18,64
360 return